object fTextFormat: TfTextFormat Left = 277 Top = 178 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Text Formatting' ClientHeight = 283 ClientWidth = 367 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 353 Height = 65 Caption = 'Font Type' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object RzFontComboBox1: TRzFontComboBox Left = 8 Top = 24 Width = 284 Height = 20 Hint = 'Font Style ...' FontName = 'Verdana' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ItemHeight = 16 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 end object SpinEdit1: TSpinEdit Left = 296 Top = 24 Width = 49 Height = 21 Hint = 'Font Size ...' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] MaxValue = 0 MinValue = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Value = 2 end end object Button2: TButton Left = 8 Top = 258 Width = 137 Height = 21 Caption = 'Apply Text Formatting' Default = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button2Click end object GroupBox2: TGroupBox Left = 8 Top = 80 Width = 353 Height = 65 Caption = 'Font Color' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 2 object Label1: TLabel Left = 8 Top = 44 Width = 66 Height = 12 Caption = 'HTML Code :' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 80 Top = 44 Width = 65 Height = 13 AutoSize = False Caption = '#000000' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 8 Top = 24 Width = 34 Height = 12 Caption = 'Color :' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object SpeedButton1: TSpeedButton Left = 148 Top = 21 Width = 29 Height = 17 Caption = '...' Flat = True OnClick = SpeedButton1Click end object Panel1: TPanel Left = 80 Top = 21 Width = 65 Height = 17 BevelOuter = bvLowered Color = clBlack TabOrder = 0 OnClick = Panel1Click end end object GroupBox3: TGroupBox Left = 8 Top = 152 Width = 353 Height = 97 Caption = 'Optional Styles' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object CB_Bold: TCheckBox Left = 8 Top = 24 Width = 97 Height = 17 Caption = 'Bold' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 0 end object CB_Underline: TCheckBox Left = 8 Top = 40 Width = 97 Height = 17 Caption = 'Underline' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 1 end object CB_Italic: TCheckBox Left = 8 Top = 56 Width = 97 Height = 17 Caption = 'Italic' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 2 end object CB_Centered: TCheckBox Left = 8 Top = 72 Width = 97 Height = 17 Caption = 'Centered' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 3 end end object Button1: TButton Left = 224 Top = 258 Width = 137 Height = 21 Caption = 'Cancel' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button1Click end object ColorDialog1: TColorDialog Ctl3D = True Left = 208 Top = 65528 end end